<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% dim ctit
ctit="公司资质"
%>
<%=ctit%>—<%=webname%>
<%= ctit %>
<%= weburl %>
<%
rs.open "select * from honor order by orderid asc",conn,1,1
if not rs.eof then
dim pc,page,ps
rs.pagesize=9
pc=rs.pagecount
page = clng(request("page"))
if page<=0 then page=1
if request.querystring("page")="" then
page=1
end if
rs.absolutepage=page
for ps=1 to rs.pagesize
if rs.Eof then
exit for
end if
%>